home *** CD-ROM | disk | FTP | other *** search
/ Netware Super Library / Netware Super Library.iso / virus / vste204 / makefile.2 < prev    next >
Makefile  |  1995-03-21  |  9KB  |  256 lines
  1.  set scanflag=no
  2.  setdos /s0:0
  3.  color bla on bla border bla
  4.  break off
  5.  cls
  6.  echo.
  7.  echo.
  8.  echo.
  9.  
  10. :vercheck
  11.  if not direxist %fpdir mkdir %fpdir
  12.  set server=%@ext[%@findfirst[%arcdir\new.*]]
  13.  set local=%@ext[%@findfirst[%fpdir\new.*]]
  14.  if %server NE %local gosub update
  15.  set server=
  16.  set local=
  17.  
  18. :tempcheck
  19.  if not direxist %tempdir mkdir %tempdir
  20.  
  21. :memscan
  22.  drawbox 0 0 2 79 2 bri yel on blu fill blu
  23.  scrput 1 15 bri bli yel on blu Please Be Patient... Scanning Memory For Viruses
  24.  scrput 24 0 bri bla on bla %title Version %version
  25.  %fpdir\f-prot c:\command.com  /silent /old /nopacked /nosub /command /report=%tempdir\vreport.txt
  26.  if ERRORLEVEL NE 0 .and. ERRORLEVEL NE 6 goto virfound
  27.  
  28.  color whi on bla border bla
  29.  cls
  30.  color bla on bla
  31.  iff %1==A: then set drive=a:^set scanflag=exit^goto scanner
  32.   elseiff %1==B: then set drive=b:^set scanflag=exit^goto scanner
  33.   elseiff %1==C: then set drive=c:^set scanflag=exit^goto scanner
  34.   elseiff %1==D: then set drive=d:^set scanflag=exit^goto scanner
  35.  endiff
  36.  
  37. :mainsc
  38.  drawbox 4 10 12 70 2 bri yel on blu fill blu shadow zoom
  39.  scrput 5 %@eval[39-(%@len[%title]/2)] bri whi on blu  %title 
  40.  scrput 7 12 whi on blu Place the floppy disk you wish to scan into
  41.  scrput 8 12 whi on blu the drive, then select a drive letter from
  42.  scrput 9 12 whi on blu the list on the right.
  43.  scrput 11 12 whi on blu Select HELP for more info, or QUIT to exit.
  44.  scrput 11 19 bri yel on blu HELP
  45.  scrput 11 42 bri yel on blu QUIT
  46.  
  47. :dselect
  48.  set drive=.
  49.  beep 1318 2 740 1
  50.  echo   A: r  B: r  C:  r HELP r QUIT|set choice=%@select[CON,7,58,13,65,]
  51.  if %@instr[2,1,%choice] == A set drive=A:
  52.  if %@instr[2,1,%choice] == B set drive=B:
  53.  if %@instr[2,1,%choice] == C set drive=C:
  54.  if %@instr[2,1,%choice] == E gosub help
  55.  if %@instr[2,1,%choice] == U goto quit
  56.  if %drive==. goto dselect
  57.  beep 1046 1 1174 1
  58.  
  59. :scanner
  60.  drawbox 11 27 13 54 2 bri yel on gre fill gre shadow zoom
  61.  scrput 12 28 bri bli yel on gre                         
  62.  scrput 12 30 bri yel on gre Scanning - Please Wait
  63.  if exist %tempdir\vreport.txt del %tempdir\vreport.txt /yq
  64.  %fpdir\f-prot %drive /nomem /auto /silent /disinf /old /command /report=%tempdir\vreport.txt
  65.  if ERRORLEVEL NE 0 .and. ERRORLEVEL NE 6 .and. ERRORLEVEL NE 8 goto virfound
  66.  if ERRORLEVEL==0 goto novirus
  67.  if ERRORLEVEL==6 goto virclean
  68.  
  69. :suspfile
  70.  drawbox 13 15 15 64 2 bri yel on red fill red shadow
  71.  scrput 14 17 bri yel on red A suspicious file has been found and reported.
  72.  beep 1046 1 933 1  831 1 784 1
  73.  gosub report
  74.  delay 4
  75.  cls
  76.  if %scanflag==exit goto quit
  77.  goto mainsc
  78.  
  79. :novirus
  80.  if exist %tempdir\vreport.txt del %tempdir\vreport.txt /yq
  81.  drawbox 12 30 14 50 2 bri whi on cya fill cya shadow
  82.  scrput 13 32 bri whi on cya No viruses found.
  83.  beep 1046 1 1318 1 1046 1
  84.  delay 2
  85.  cls
  86.  if %scanflag==exit goto quit
  87.  goto mainsc
  88.  
  89. :virclean
  90.  drawbox 13 21 15 59 2 whi on blu fill blu shadow
  91.  scrput 14 23 whi on blu Virus found, removed, and reported.
  92.  beep 1046 1 1318 1 1568 1 1318 1 1046 1
  93.  gosub report
  94.  delay 4
  95.  cls
  96.  if %scanflag==exit goto quit
  97.  goto mainsc
  98.  
  99. :update
  100.  color bla on bla bord bla
  101.  cls
  102.  drawbox 4 3 7 77 2 bri whi on gre fill gre
  103.  scrput 5 5 bri whi on gre The version of the scanner's files located on your hard disk are out of
  104.  scrput 6 12 bri whi on gre date. They are being automatically updated. Please wait...
  105.  del %fpdir\*.* /yzq
  106.  if %@diskfree[%@substr[%fpdir,0,2],k] LT 1033 goto diskspc
  107.  copy %arcdir\*.* %fpdir\ /qv
  108.  cls
  109.  return
  110.  
  111. :help
  112.  beep 1046 1 1318 1 1568 1 2093 1
  113.  echo %@select[%vssdir\vsshelp.dat,6,4,24,76,PgUp/PgDn or cursor keys to scroll────────────────ESC exits Help]>NUL
  114.  return
  115.  
  116. :virfound
  117.  color bri yel on red border red
  118.  cls
  119. text
  120.  
  121.                    A PROBLEM WAS FOUND DURING THE VIRUS SCAN! 
  122.  
  123.                During the virus scan, the following error occurred:
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  
  135.       If you are uncertain of how to deal with this error, please contact
  136.      your computer support personnel as soon as possible, by phone.  Leave
  137.       this message on your screen and call right away if you can, as your
  138.     support personnel will likely have specific instructions at this point.
  139.  
  140.      Your system will not allow exiting from this screen without rebooting,
  141.       for your data's safety.  If you must reboot right now, please write
  142.                        down the particular error above.
  143.  
  144. endtext
  145.  
  146.  iff ERRORLEVEL==1 then
  147.  scrput 7 7 bri whi on red   ABNORMAL PROGRAM TERMINATION:
  148.  scrput 8 8 bri whi on red    Any of the following may have occured: an old DOS version (1.x) is
  149.  scrput 9 8 bri whi on red    installed on this machine, the virus report file was uncreatable,
  150.  scrput 10 8 bri whi on red   scanner files are missing, or there was a scanner file problem.
  151.  elseiff ERRORLEVEL==2 then
  152.  scrput 7 7 bri whi on red   SELF TEST FAILED:
  153.  scrput 9 8 bri whi on red    The scanner engine has been illegally modified, and failed an
  154.  scrput 10 8 bri whi on red   internal integrity check.
  155.  elseiff ERRORLEVEL==3 then
  156.  scrput 7 7 bri whi on red   VIRUS FOUND:
  157.  scrput 9 8 bri whi on red    An unremovable virus was found on this machine, or a virus which
  158.  scrput 10 8 bri whi on red    could not be removed at this moment. Please contact your support
  159.  scrput 11 8 bri whi on red   personnel immediately.
  160.  elseiff ERRORLEVEL==4 then
  161.  scrput 7 7 bri whi on red   VIRUS FOUND IN MEMORY:
  162.  scrput 9 8 bri whi on red    A virus is currently present in memory.  This means that either
  163.  scrput 10 8 bri whi on red    your machine itself has been infected, or a disk which contained
  164.  scrput 11 8 bri whi on red   a virus was used on this machine. Contact support personnel for
  165.  scrput 12 8 bri whi on red   further instructions, or to set up a service call.
  166.  elseiff ERRORLEVEL==5 then
  167.  scrput 7 7 bri whi on red   SCANNER ILLEGALLY TERMINATED:
  168.  scrput 9 8 bri whi on red    A break signal was sent to the scanner. If you did not hit BREAK
  169.  scrput 10 8 bri whi on red    then please contact support personnel. If you pressed either
  170.  scrput 11 8 bri whi on red   CTRL+C, or CTRL+BREAK, simply reboot and rescan your machine,
  171.  scrput 12 8 bri whi on red   without pressing the BREAK key.
  172.  elseiff ERRORLEVEL==7 then
  173.  scrput 7 7 bri whi on red   INSUFFICIENT MEMORY TO SCAN:
  174.  scrput 9 8 bri whi on red    This machine does not have enough free memory to scan. If you are
  175.  scrput 10 8 bri whi on red    running it from inside of another shell, please reboot and run
  176.  scrput 11 8 bri whi on red   this virus on your newly booted machine. If not, and you do have
  177.  scrput 12 8 bri whi on red   640 of memory, please contact support personnel.
  178.  endiff
  179.  beep 262 1 311 1 262 1 330 1 262 1 311 1 262 1 330 1
  180.  gosub report
  181.  
  182. :lockdown
  183.  goto lockdown
  184.  
  185. :report
  186.  echo ---%_date---%_time---------------------------------------------->>%repdir\summary.txt
  187.  whoami>>%repdir\summary.txt
  188.  type %tempdir\vreport.txt>>%repdir\summary.txt
  189.  echo. >>%repdir\summary.txt
  190.  echo -------------------------------------------------------------------------->>%repdir\summary.txt
  191.  echo. >>%repdir\summary.txt
  192.  delay 3
  193.  return
  194.  
  195. :userbrk
  196.  color whi on bla
  197.  cls
  198.  echo Someone (must've been you...) hit BREAK!
  199.  echo.
  200.  delay 2
  201.  goto end
  202.  
  203. :noaspace
  204.  color whi on bla
  205.  cls
  206.  echo This machine does not have enough Alias Space to run a virus scan. Please
  207.  echo contact your support personnel for further instructions on how to correct
  208.  echo this problem.
  209.  echo.
  210.  goto end
  211.  
  212. :diskspc
  213.  color whi on bla
  214.  cls
  215.  echo This machine does not have enough free disk space to install necessary
  216.  echo files. Please free up some disk space, or contact your support
  217.  echo personnel for more information on how to correct this error.
  218.  echo.
  219.  goto end
  220.  
  221. :windoze
  222.  color whi on bla
  223.  cls
  224.  echo You have attempted to run this program from under Microsoft Windows,
  225.  echo running in 386 Enhanced mode.  This may mean that 32-bit disk access
  226.  echo is enabled.
  227.  echo.
  228.  echo Having 32-bit disk access enabled makes it unsafe to run any sort of
  229.  echo disk repair program under Windows. The scanner cannot be run safely
  230.  echo until you exit Windows.
  231.  echo.
  232.  echo Please exit Windows, and run the scanner from DOS.
  233.  echo.
  234.  delay 6
  235.  goto end
  236.  
  237. :quit
  238.  color whi on bla border bla
  239.  cls
  240.  
  241. :end
  242.  beep 1568 1 2093 1
  243.  set title=
  244.  set version=
  245.  set fpdir=
  246.  set vssdir=
  247.  set tempdir=
  248.  set tempdir=
  249.  set drive=
  250.  set choice=
  251.  set repdir=
  252.  set scanflag=
  253.  set arcdir=
  254.  setdos /s10:100
  255.  
  256.